home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr52 / sh50pro.zip / HELP.PRG < prev    next >
Text File  |  1993-04-08  |  6KB  |  167 lines

  1.  
  2. FUNCTION Help
  3. *==========================================================================
  4. *    Help  (Field Level Help System)
  5. *    Project Name: Helpdemo
  6. *    Project Description: Superhelp Library   
  7. *    Written By: Darryl Strickland   
  8. *    Help System Generated by Superhelp Codegen 5.0
  9. *    Generated August 11, 1991  -   8:42 PM
  10. *    Copyright (c) by DJS Applications    
  11. *
  12. *    Help Methods - Simulated Memoedit
  13. *                   Superhelp Codegen Reference File Produced (SHELP.REF   )
  14. *                   Help System Requires Superhlp.Lib at Link Time
  15. *
  16. *    Thank you for using Superhelp Code Generator 5.0  -  DJS Applications
  17. *==========================================================================
  18. PARAMETER cProc,nLine,cVar
  19. LOCAL nRowhlp,nColhlp,lBadfile,cOldArea,cOldColor
  20. LOCAL nCurState,nHelpSize
  21. LOCAL nBurnSize,cBurnDate,cBurnTime
  22. PRIVATE nHlphandle,nTopRow,nLeftCol,nBotRow,nRightCol,cHeader
  23. PRIVATE cFooter,nHeadcol,nFootcol,cWinColor,nShadClrf,nShadClrb,cFrame,cMidBar
  24. PRIVATE nWinType,cShadType,nBoxMethod,lIplode,lXplodeTxt,nHlpSpacer
  25. PRIVATE cHeadColor,cFootColor,cFramColor,cTrimHdr,nFootType
  26. PRIVATE lMicroVoic,lEditRef,nPadSize,nLookPt,cOldScr
  27. PRIVATE nTxtSize,nMWidth,nNoLines,nDspMeth,nLineSize,cTrimFoot
  28. PRIVATE nText_Cnt,nScrnSize,nStartRow,lOutLoop,nNoFrames,nBliMrkx
  29. PRIVATE nLines,nCnt,cSpeakStr,lSpeakOk,lVoiceload,cLstDir,nStartPt,aHelpline:={}
  30. PRIVATE nReadSize,lTopPage,lBotPage,nByteRead,nPrevRead
  31. SET PROCEDURE TO HELPLIB
  32. SET PROCEDURE TO HELPMGR
  33. SET PROCEDURE TO HELPCON
  34. SETBLINK(.F.)
  35. lVoiceload := .F.
  36. nBliMrkx := 13
  37. nRowhlp := ROW()
  38. nColhlp := COL()
  39. SET KEY 28 TO
  40. cOldcolor := SETCOLOR()
  41. nCurState := SETCURSOR(0)
  42. cProc := TRIM(cProc)
  43. cVar := TRIM(cVar)
  44. cOldscr := SAVESCREEN(0,0,MaxRow(),MaxCol())
  45. lBadfile := .F.
  46. IF FILE("SHELP.REF")
  47.    nHlphandle := FOPEN("SHELP.REF",2)
  48.    nHlpsize := FSEEK(nHlphandle,0,2)
  49.    FSEEK(nHlphandle,-20,2)
  50.    nBurnSize := SPACE(7)
  51.    cBurnDate := SPACE(8)
  52.    cBurnTime := SPACE(5)
  53.    FREAD(nHlphandle,@nBurnSize,7)
  54.    FREAD(nHlphandle,@cBurnDate,8)
  55.    FREAD(nHlphandle,@cBurnTime,5)
  56.    FSEEK(nHlphandle,0)
  57.    IF nHlpsize <> VAL(nBurnSize) .OR. '08/11/91' <> cBurnDate .OR. '20:42' <> cBurnTime
  58.       lBadfile := .T.
  59.    ENDIF
  60. ELSE
  61.    lBadfile := .T.
  62. ENDIF
  63. IF lBadfile
  64.    SRIGHTBX(09,20,13,60,"╓─╖║╜─╙║ ",.F.,'B/W+','B/W+','R',.T.,7,0)
  65.    @09,22 SAY "╢ Help Error ╟"
  66.    @11,22 SAY "Please restore SHELP.REF from disk"
  67.    @13,25 SAY "╢ Superhelp Codegen 5.0 ╟"
  68.    INKEY(10)
  69.    SETCOLOR(cOldcolor)
  70.    SET KEY 28 TO Help
  71.    @nRowhlp,nColhlp SAY ""
  72.    RESTSCREEN(0,0,MaxRow(),MaxCol(),cOldscr)
  73.    RETURN NIL
  74. ENDIF
  75. DO CASE
  76.  
  77.    * Window Description : Superhelp Introduction             
  78.    CASE (cProc == "HELPDEMO" .AND. cVar == "A")
  79.       HELPPREP(218)
  80.  
  81.    * Window Description : Window Commands                    
  82.    CASE (cProc == "HELPDEMO" .AND. cVar == "B")
  83.       HELPPREP(3809)
  84.  
  85.    * Window Description : Color Commands                     
  86.    CASE (cProc == "HELPDEMO" .AND. cVar == "C")
  87.       HELPPREP(9707)
  88.  
  89.    * Window Description : Shadow Commands                    
  90.    CASE (cProc == "HELPDEMO" .AND. cVar == "D")
  91.       HELPPREP(10473)
  92.  
  93.    * Window Description : Help Code Generation               
  94.    CASE (cProc == "HELPDEMO" .AND. cVar == "E")
  95.       HELPPREP(11431)
  96.  
  97.    * Window Description : User Guide Generation              
  98.    CASE (cProc == "HELPDEMO" .AND. cVar == "F")
  99.       HELPPREP(13053)
  100.  
  101.    * Window Description : Data Dictionary Generation         
  102.    CASE (cProc == "HELPDEMO" .AND. cVar == "G")
  103.       HELPPREP(13677)
  104.  
  105.    * Window Description : Help Text Commands                 
  106.    CASE (cProc == "HELPDEMO" .AND. cVar == "H")
  107.       HELPPREP(14296)
  108.  
  109.    * Window Description : System Defaults                    
  110.    CASE (cProc == "HELPDEMO" .AND. cVar == "I")
  111.       HELPPREP(20618)
  112.  
  113.    * Window Description : Import/Export Text                 
  114.    CASE (cProc == "HELPDEMO" .AND. cVar == "J")
  115.       HELPPREP(29752)
  116.  
  117.    * Window Description : Project Information Setup          
  118.    CASE (cProc == "HELPDEMO" .AND. cVar == "K")
  119.       HELPPREP(30870)
  120.  
  121.    * Window Description : Color Setup                        
  122.    CASE (cProc == "HELPDEMO" .AND. cVar == "L")
  123.       HELPPREP(32260)
  124.  
  125.    * Window Description : Screen Capture Utility             
  126.    CASE (cProc == "HELPDEMO" .AND. cVar == "M")
  127.       HELPPREP(32790)
  128.  
  129.    * Window Description : Help Manager                       
  130.    CASE (cProc == "HELPDEMO" .AND. cVar == "N")
  131.       HELPPREP(34038)
  132.  
  133.    * Window Description : Link Windows                       
  134.    CASE (cProc == "HELPDEMO" .AND. cVar == "O")
  135.       HELPPREP(35230)
  136.  
  137.    * Window Description : INKEY()/ENKEY() Sample Window      
  138.    CASE (cProc == "NOWAIT" .AND. cVar == "INKEY1")
  139.       HELPPREP(36591)
  140.  
  141.    * Window Description : Link Window Demonstration          
  142.    CASE (cProc == "REGISTER" .AND. cVar == "FNAME");
  143.     .OR. (cProc == "REGISTER" .AND. cVar == "LNAME");
  144.     .OR. (cProc == "REGISTER" .AND. cVar == "ADD1");
  145.     .OR. (cProc == "REGISTER" .AND. cVar == "ADD2");
  146.     .OR. (cProc == "REGISTER" .AND. cVar == "ZIP");
  147.     .OR. (cProc == "REGISTER" .AND. cVar == "PHONE")
  148.       HELPPREP(37133)
  149.    OTHERWISE 
  150.       Helpcon(cProc,0,cVar)
  151.       SETCOLOR(cOldcolor)
  152.       SET KEY 28 TO Help
  153.       @nRowhlp,nColhlp SAY ""
  154.       RESTSCREEN(0,0,MaxRow(),MaxCol(),cOldscr)
  155.       RETURN NIL
  156. ENDCASE
  157. DSPHELP()
  158. SETCOLOR(cOldcolor)
  159. SET KEY 28 TO Help
  160. FCLOSE(nHlphandle)
  161. SETCURSOR(nCurState)
  162. RELEASE aHelpLine
  163. @nRowhlp,nColhlp SAY ""
  164. RESTSCREEN(0,0,MaxRow(),MaxCol(),cOldscr)
  165. RETURN NIL
  166.